Wayzata's Best of Shareware for Macintosh/CD Line - Limited Edition Wayzata's Best of Shareware for Macintosh for MacWorld Exposition Milano 1994 (050594)(1994).iso/pc/utilitie/system_7/hyperkey/hyperkey.1/cards.xml

Text File | 1992-05-09 | 44.1 KB | 993 lines

card_2870.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2870</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2652</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_2184.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>88</top>
            <right>176</right>
            <bottom>216</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mousedown
set cursor to watch
type tab
global selectedkey,openfile
put the rect of me into therect
put the mouseloc into DownLoc
put ((item 2 of DownLoc - item 2 of therect+ the scroll of me)¬
div the textheight of me)+1 into theline
if line theline of me is not empty then
put "1,"& theline &","& line theline of me into SelectedKey
Getscript
if openfile ≠ "" then
set the name of button 1 to "» copy »"
set the name of button 2 to "» copy all »"
show btn 1
show btn 2
else
hide btn 1
hide btn 2
end if
show btn 3
show btn 4
select line theline of me
end if
end mousedown


on mouseup
end mouseup</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>192</left>
            <top>99</top>
            <right>320</right>
            <bottom>121</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>¬´ move ¬´</name>
        <script>on mouseUp
global openfile,selectedkey
if the short name of me is "Can’t copy" then exit mouseup
docopy
put "" into cd fld 1
put "" into cd fld 2
GetInstalledKeys
if openfile ≠ "" then
GetKeysFromFile
GetFileInfo
end if
put "1,1," into selectedkey
getscript
hide btn 1
hide btn 2
hide btn 3
hide btn 4
end mouseUp
</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>192</left>
            <top>124</top>
            <right>320</right>
            <bottom>146</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>¬´ move all ¬´</name>
        <script>on mouseUp
global selectedkey,openfile
if the name of me is "Can’t copy" then exit mouseup
put item 1 of selectedkey into TheField
put cd fld TheField into CopyList
repeat with x =1 to the number of lines in copylist
put TheField&","&x&","&line x of Copylist into SelectedKey
GetScript
docopy
end repeat
put "" into cd fld 1
put "" into cd fld 2
GetInstalledKeys
if openfile ≠ "" then
GetKeysFromFile
GetFileInfo
end if
put "1,1," into selectedkey
getscript
hide btn 1
hide btn 2
hide btn 3
hide btn 4
end mouseUp
</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>192</left>
            <top>149</top>
            <right>320</right>
            <bottom>171</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Remove</name>
        <script>on mouseUp
global Currentscript,SelectedKey,openfile
if item 1 of selectedKey = "2" then
answer "I can only remove keys from a stack." with "OK"
exit mouseup
end if
answer "Removing a Key sends it into the void forever ..." with¬
"Go Ahead" or "Cancel"
if it is "Cancel" then exit mouseup
put last word of SelectedKey into KeyName
put first word of item 3 of SelectedKey into Keytype
put length(Keyname)+Length(Keytype) into TheLength
put offset("on Do"&Keytype&keyname&return,currentscript) into start
put offset("end Do"&Keytype&keyname&return,currentscript) into finish
put "" into char start to finish + 5 + thelength of¬
currentscript
UpdateStackScript
put "" into cd fld 1
put "" into cd fld 2
GetInstalledKeys
if openfile ≠ "" then GetKeysFromFile
put "1,1," into SelectedKey
hide btn 1
hide btn 2
hide btn 3
hide btn 4
GetScript
end mouseup
</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>192</left>
            <top>174</top>
            <right>320</right>
            <bottom>196</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Reassign script ...</name>
        <script>on mouseUp
global selectedkey,keynames,openfile,padding,FkeyNames
if item 1 of selectedkey is "2" and openfile ="" then
answer "I Can’t reassign an Unused Key"
exit mouseup
end if
set cursor to busy
put "" into cd fld "Choose"
set the scroll of cd fld "Choose" to 0
put "Reassign "&& last item of selectedkey &&"script to :" into¬
cd fld action
dodialog show
put cd field (item 1 of selectedkey) into temp
repeat with x = 1 to the number of items in Keynames
if item x of keynames = "*" then next repeat
put "Control — "&item x of keynames& padding into thename
if thename is not in temp then
put thename after cd fld "Choose"
end if
set cursor to busy
end repeat
repeat with x = 1 to the number of items in FkeyNames
put "Fkey — "&item x of FkeyNames &padding into thename
if thename is not in Temp then
put thename after cd fld "Choose"
end if
set cursor to busy
end repeat
end mouseUp
</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>46</left>
            <top>13</top>
            <right>83</right>
            <bottom>43</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29114</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Return to stack</name>
        <script>on mouseUp
type tab
close window short name of this stack
pop card
end mouseUp
</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>334</left>
            <top>220</top>
            <right>417</right>
            <bottom>243</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Open...</name>
        <script>on mouseUp
global openfile,Keynames,selectedkey
if the short name of me is "Open..." then
answer file "Choose a storage file ..." of type "TEXT"
put it into thefile
if thefile is not empty then
set the name of me to "Close"
put thefile into openfile
GetFileInfo
set the name of button 1 to "¬´ copy ¬´"
set the name of button 2 to "¬´ copy all ¬´"
hide btn 3
show btn 4
put "" into cd fld 2
set the scroll of cd fld 2 to 0
GetKeysFromFile
put "2,1,"& line 1 of cd fld 2 into selectedkey
GetScript
end if
else
set the name of me to "Open..."
put "" into openfile
put "Unused Keys" into cd fld "filename"
put "" into cd fld 1
put "" into cd fld 2
set the name of button 1 to "¬´ move ¬´"
set the name of button 2 to "¬´ move all ¬´"
hide btn 3
hide btn 4
GetInstalledKeys
put "2,1,"& line 1 of cd fld 2 into selectedkey
GetScript
end if
end mouseUp
</script>
    </part>
    <part>
        <id>12</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>335</left>
            <top>88</top>
            <right>503</right>
            <bottom>216</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mousedown
global openfile
set cursor to watch
type tab
global selectedkey
put the rect of me into therect
put the mouseloc into DownLoc
put ((item 2 of DownLoc - item 2 of therect+ the scroll of me)¬
div the textheight of me)+1 into theline
if line theline of me is not empty then
put "2,"& theline &","& line theline of me into SelectedKey
Getscript
if openfile = "" then
set the name of button 1 to "¬´ move ¬´"
set the name of button 2 to "¬´ move all ¬´"
hide btn 4
else
set the name of button 1 to "¬´ copy ¬´"
set the name of button 2 to "¬´ copy all ¬´"
show btn 4
end if
show btn 1
show btn 2
hide btn 3
select line theline of me
end if
end mousedown


on mouseup
end mouseup</script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>54</top>
            <right>176</right>
            <bottom>87</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>StackName</name>
        <script></script>
    </part>
    <part>
        <id>15</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>335</left>
            <top>54</top>
            <right>503</right>
            <bottom>87</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>filename</name>
        <script></script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>467</left>
            <top>11</top>
            <right>499</right>
            <bottom>46</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>2507</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Help</name>
        <script>on mouseUp
set the visible of card field "help" to not the visible of cd fld "help"
end mouseUp
</script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>12</left>
            <top>13</top>
            <right>46</right>
            <bottom>41</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20098</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUp
type tab
close window short name of this stack
go home
end mouseUp
</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>435</left>
            <top>11</top>
            <right>468</right>
            <bottom>48</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>2478</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>About</name>
        <script>on mouseUp
set hilite of me to true
set the textsize of cd fld About to 1
show cd fld About
repeat with x =1 to 10
set the textsize of cd fld About to x
end repeat
repeat until the mouse is down
end repeat
repeat with x = 13 to 110
if x mod 12 ≠ 1 then next repeat
set the textheight of cd fld About to x
end repeat
wait 100
hide cd fld about
set the textheight of cd fld about to 13
set hilite of me to false
end mouseUp
</script>
    </part>
    <part>
        <id>24</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>8</left>
            <top>220</top>
            <right>91</right>
            <bottom>243</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Open...</name>
        <script>on mouseUp
global StackOpen,selectedkey,OpenFile
answer file "Choose a hypercard stack ..." of type "STAK"
if it = "" then exit mouseup
put it into StackOpen
GetStackInfo
put "" into cd fld 1
if openfile = "" then put "" into cd fld 2
GetInstalledKeys
put "1,1,"& line 1 of cd fld 1 into selectedkey
GetScript
end mouseUp
</script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>202</left>
            <top>49</top>
            <right>315</right>
            <bottom>71</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Control Driver</name>
        <script>on mouseUp
global openfile
if the hilite of me is true then
removeDriver ControlKey
else InstallDriver ControlKey
set the hilite of me to installed(ControlKey)
if installed(ControlKey) then
enable menuItem 4 of menu "Hyperkeys"
disable menuItem 3 of menu "Hyperkeys"
else
enable menuItem 3 of menu "Hyperkeys"
disable menuItem 4 of menu "Hyperkeys"
end if
if word 2 of cd fld stackname = quote &"home"&quote then
getstackinfo
put "" into cd fld 1
if openfile = "" then put "" into cd fld 2
getinstalledkeys
end if
end mouseUp
</script>
    </part>
    <part>
        <id>25</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>94</left>
            <top>220</top>
            <right>177</right>
            <bottom>243</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Compact</name>
        <script>on mouseUp
global StackOPen
push card
put "Compacting"&& line 1 of cd fld "StackName"
set cursor to watch
set lockmessages to true
set lockscreen to true
go stack Stackopen
DoMenu "Compact Stack"
pop card
getStackInfo
hide msg
end mouseUp
</script>
    </part>
    <part>
        <id>26</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>420</left>
            <top>220</top>
            <right>503</right>
            <bottom>243</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>New...</name>
        <script>on mouseUp
global openfile
repeat forever
ask "Create text file named:" with ""
if it is empty then exit repeat
put it into thefile
open file thefile
read from file thefile for 16384
close file thefile
if it ≠ empty then
play boing
answer thefile&&"already exists, replace it?"¬
with "Yes" or "No"
if it is "Yes" then put empty into it
end if
if it is empty then
put thefile into openfile
open file thefile
write return to file thefile
close file thefile
getfileinfo
put "" into cd fld 2
getkeysfromfile
set the name of button 6 to "Close"
hide btn 3
show btn 4
exit repeat
end if
end repeat
end mouseUp
</script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>202</left>
            <top>70</top>
            <right>306</right>
            <bottom>92</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>FKeys Driver</name>
        <script>on mouseUp
if the hilite of me is true then removeDriver FKey
else InstallDriver FKey
set the hilite of me to installed(FunctionKey)
if installed(FunctionKey) then
enable menuItem 7 of menu "Hyperkeys"
disable menuItem 6 of menu "Hyperkeys"
else
enable menuItem 6 of menu "Hyperkeys"
disable menuItem 7 of menu "Hyperkeys"
end if
end mouseUp
</script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>49</top>
            <right>504</right>
            <bottom>313</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Help</name>
        <script>on mouseup
hide me
end mouseup
</script>
    </part>
    <part>
        <id>29</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>65522</top>
            <right>512</right>
            <bottom>328</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Cover</name>
        <script>on mouseUp
play boing
end mouseUp
</script>
    </part>
    <part>
        <id>17</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>49</top>
            <right>504</right>
            <bottom>313</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>About</name>
        <script>on mouseup
hide me
end mouseup
</script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>89</left>
            <top>96</top>
            <right>428</right>
            <bottom>227</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Dlog</name>
        <script>on mouseup
end mouseup
</script>
    </part>
    <part>
        <id>42</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>92</left>
            <top>99</top>
            <right>425</right>
            <bottom>224</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>dlog3</name>
        <script></script>
    </part>
    <part>
        <id>31</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>93</left>
            <top>100</top>
            <right>424</right>
            <bottom>223</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>Dlog2</name>
        <script>on mouseup
end mouseup
</script>
    </part>
    <part>
        <id>32</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>168</left>
            <top>198</top>
            <right>249</right>
            <bottom>219</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>OK</name>
        <script>on mouseUp
global currentscript,openfile,selectedkey,openstack
set cursor to watch
put word 1 of the selection into NewType
put last word of the selection into NewName
put last word of SelectedKey into KeyName
put first word of item 3 of SelectedKey into KeyType
put length(Keyname) + Length(Keytype) into TheLength
dodialog hide
if item 1 of selectedkey = "2" then
open file openfile
read from file openfile for 16384
put it into temp
close file openfile
else
put currentscript into temp
end if
put offset ("On Do"&keytype&Keyname&return,temp) into start
put offset ("End Do"&keytype&Keyname&return,temp) into finish
if start = finish then
answer "Can’t seem to find "&keytype&&"-"&&keyname
exit mouseup
end if
put "End Do"&newtype&newName&return into char finish to¬
finish+thelength+7 of temp
put "On Do"&Newtype&newName&return into char start to start+thelength¬
+6 of temp
if item 1 of selectedkey = "2" then
put "Writing to "&line 1 of cd fld "Filename"&" ..."
open file openfile
write temp to file openfile
close file openfile
hide msg
else
put temp into currentscript
UpdateStackScript
end if
put NewType into word 1 of item 3 of selectedkey
put NewName into last word of selectedkey
put "" into cd fld 1
put "" into cd fld 2
GetInstalledKeys
if openfile ≠ "" then GetKeysFromFile
GetScript
end mouseUp
</script>
    </part>
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>272</left>
            <top>198</top>
            <right>353</right>
            <bottom>219</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Cancel</name>
        <script>on mouseUp
dodialog hide
end mouseUp
</script>
    </part>
    <part>
        <id>39</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>94</left>
            <top>106</top>
            <right>248</right>
            <bottom>186</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Action</name>
        <script>on mouseup
end mouseup</script>
    </part>
    <part>
        <id>40</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>248</left>
            <top>106</top>
            <right>420</right>
            <bottom>187</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Choose</name>
        <script>on mousedown
put the rect of me into therect
put the mouseloc into DownLoc
put ((item 2 of DownLoc - item 2 of therect+ the scroll of me)¬
div 16)+1 into theline
if line theline of me is not empty then select line theline of me
end mousedown

on mouseup
end mouseup</script>
    </part>
    <part>
        <id>43</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>314</left>
            <top>9</top>
            <right>366</right>
            <bottom>40</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Times</font>
        <textSize>36</textSize>
        <textStyle>plain</textStyle>
        <textHeight>48</textHeight>
        <name>Version</name>
        <script></script>
    </part>
    <content>
        <layer>background</layer>
        <id>3</id>
        <text>on controlkey keynum -- Hyperkeys Driver 2.1 © 1991 MPB Trinder
  -- Installed on xxxxx at xxxxx
  put xxxxx ¬
  into keynames
  if keynum = 96 then put 62 into keynum
  if keynum >62 then pass controlkey
  put item keynum of keynames into whichkey
  if whichkey = "*" then pass controlkey
  lock error dialogs
  do "send docontrol"&whichkey&" to this stack"
end controlkey

on DoControlH
  visual effect iris open slowly
  go stack "Hyperkeys" in a new window
End DoControlH
</text>
    </content>
    <content>
        <layer>card</layer>
        <id>15</id>
        <text>Unused Keys
40 Keys available</text>
    </content>
    <content>
        <layer>card</layer>
        <id>17</id>
        <text>A Hypercard programming utility by Mike Trinder.

Hyperkeys gives you the ability to easily add hypertalk scripts to any Control-Key combination or Function key if you have an Extended Keyboard.

Scripts can be placed in either the Home stack to make them generally available or in a specific stack to provide local Script Macros. All scripts can be cleanly removed.
Scripts can be saved as TEXT files for storage and distribution.


This stack is shareware; if you use this stack please send £2 (dollars will do fine) to
Mike Trinder,
South Bramble,
Sunning Ave,
Ascot,
Berks,
ENGLAND.

© Mike Trinder, March 1991.</text>
    </content>
    <content>
        <layer>card</layer>
        <id>20</id>
        <text><span class="style3">elp with Hyperkeys:</span><span class="style1">

  HyperKeys is a Hypercard programming utility which will assign any script to be executed when Control and another key are pressed or, on the Apple Extended Keyboard, when a functionkey is pressed.


</span><span class="style4">To Install/Remove Hyperkeys:</span><span class="style1">

   For the keys to work, you must install the respective driver. This is done by clicking on the checkboxes “ControlKey Driver” and “Functionkey driver”.
  These boxes are checked when the driver is installed, blank when not.

  NB. Removing the driver does not remove the KeyScripts associated with a stack. Removing the driver is thus a good way of temporarily disabling HyperKeys.

  On installation, Control-H is assigned to bring you to this stack.


</span><span class="style4">Adding New Keys:
</span><span class="style1">
  Click on the key you wish to add from the Unused Keys list. Either give it a script and immediately copy it across to the Home stack using the
¬´ move ¬´ button, or move it first and then assign it a script.


</span><span class="style4">Adding Keys from a text file:</span><span class="style1">

  With Hyperkeys 2.1 comes a whole selection of key scripts stored in a text file called Key Storage. To copy these keys to the home stack first open a file using the Open... button, then copy the keys you want with the copy button.


</span><span class="style4">Removing Keys:</span><span class="style1">

  Keys can only be removed from a stack. This is done by selecting the key you wish to remove and then clicking on Remove. Once removed, a script is lost forever: be careful!


</span><span class="style4">Saving Keys to a text file:</span><span class="style1">

  Open a text file using the "Open..." button, or create a new file using the "New..." button. Now select the keys from the stack and press "» copy »" to save that key. To copy all the keys, select any key in the stack and press "» copy all »".


</span><span class="style3">Tips for Key Scripts:</span><span class="style1">

  Keys can be installed in any stack as well as the Home stack; installing them in the home stack means they will be universally available, whilst installing them in a specific stack will mean the keys are available ONLY in that stack, and will OVERRIDE keys of the same name in the Home stack.
  Similarly, if a stack is ‘in use’ its key scripts may override those placed in the home stack. Be careful Using stacks when they contain keyscripts.
  Try to make the scripts as universal as possible so they work in any circumstance, and protect destructive keys with an Answer Dialog box asking for confirmation - it is all too easy to hit Control instead of Shift ! Also, remember that not everyone has an Extended keyboard, or even one with a Control key on it (the Mac Plus for example), so if a function key script is essential to a stack, provide an alternative method as well!
  You can make one key do several things by testing for the shift, command and option keys at the beginning of the script.

  You can call other handlers from a Keyscript, but don't put in an “On handler ”, “End Handler” ... these are put in for you.

  Due to the way controlkeys are mapped you will find that Control and some keys will invoke other scripts as below :

</span><span class="style5">Control and key</span><span class="style1">                        </span><span class="style5">Is the same as</span><span class="style1">
</span><span class="style2">
HOME                         Control - A
ENTER                        Control - C
END                          Control - D
HELP                         Control - E
DELETE                       Control - H
TAB                          Control - I
PAGE UP                      Control - K
PAGE DOWN                    Control - L
RETURN                       Control - M
ANY FUNCTION KEY             Control - P
ESC                          Control - OPEN  (Bracket)
CLEAR                        Control - OPEN  (Bracket)
LEFT ARROW                   Control - BSLASH
RIGHT ARROW                  Control - CLOSE (Bracket)
DOWN ARROW                   Control - MINUS</span><span class="style1">

  Note CONTROL - MINUS differs from CONTROL - KPADMINUS, the former being the minus key on the main keyboard, the latter being the minus key on the Numeric KeyPad.

  Also note that Control with any functionkey does NOT execute that function, but executes Control - P.


</span><span class="style3">Enjoy!</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>13</id>
        <text>Stack "Home"
76K (0K free)</text>
    </content>
    <content>
        <layer>card</layer>
        <id>31</id>
        <text>




________________________________________</text>
    </content>
    <content>
        <layer>card</layer>
        <id>39</id>
        <text>Reassign  Control — Open                      script to :</text>
    </content>
    <content>
        <layer>background</layer>
        <id>5</id>
        <text>on functionkey keynum -- Hyperkeys Driver 2.0 © 1989 MPB Trinder
  -- Installed on xxxxx at xxxxx
  put "One,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten,Eleven,Twelve,Thirteen,Fourteen,Fifteen" into keynames
  do "Send DoFKEY"&item keynum of keynames& " to this stack"
end functionkey
</text>
    </content>
    <content>
        <layer>card</layer>
        <id>43</id>
        <text>2.1</text>
    </content>
    <content>
        <layer>card</layer>
        <id>40</id>
        <text>Control — E
Control — I
Control — J
Control — K
Control — N
Control — O
Control — P
Control — Q
Control — S
Control — X
Control — Y
Control — Z
Control — Uparrow
Control — Minus
Control — Quote
Control — Times
Control — Plus
Control — Comma
Control — KpadMinus
Control — Period
Control — Zero
Control — Five
Control — Six
Control — Seven
Control — Eight
Control — Nine
Control — SemiColon
Control — Equals
Control — Apostrophe
Fkey — One
Fkey — Two
Fkey — Three
Fkey — Four
Fkey — Five
Fkey — Six
Fkey — Seven
Fkey — Eight
Fkey — Nine
Fkey — Ten
Fkey — Eleven
Fkey — Twelve
Fkey — Thirteen
Fkey — Fourteen
Fkey — Fifteen
</text>
    </content>
    <content>
        <layer>background</layer>
        <id>4</id>
        <text>Script of Control-I</text>
    </content>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>Control — A
Control — B
Control — C
Control — D
Control — E
Control — F
Control — G
Control — H
Control — L
Control — M
Control — Q
Control — R
Control — S
Control — T
Control — U
Control — V
Control — W
Control — Backslash
Control — Close
Control — Uparrow
Control — Minus
Control — Space
Control — Slash
Control — One
Control — Two
Control — Three
Control — Four
</text>
    </content>
    <content>
        <layer>card</layer>
        <id>12</id>
        <text>Control — I
Control — J
Control — K
Control — N
Control — O
Control — P
Control — X
Control — Y
Control — Z
Control — Open
Control — Quote
Control — Times
Control — Plus
Control — Comma
Control — KpadMinus
Control — Period
Control — Zero
Control — Five
Control — Six
Control — Seven
Control — Eight
Control — Nine
Control — SemiColon
Control — Equals
Control — Apostrophe
Fkey — One
Fkey — Two
Fkey — Three
Fkey — Four
Fkey — Five
Fkey — Six
Fkey — Seven
Fkey — Eight
Fkey — Nine
Fkey — Ten
Fkey — Eleven
Fkey — Twelve
Fkey — Thirteen
Fkey — Fourteen
Fkey — Fifteen
</text>
    </content>
    <name>Hyperkeys</name>
    <script>on idle
global selectedkey
if visible of cd fld 10 is true then pass idle
if "bkgnd" is not in the selectedfield and¬
the selectedfield ≠ "Message box" and item 3 of selectedkey ≠ "" then
select line (item 2 of selectedkey) of card field item 1 of selectedkey
end if
if item 3 of selectedkey = "" and ¬
"bkgnd" is not in the selectedfield and¬
the selectedfield ≠ "message box" then select before char 1 of fld 2
pass idle
end idle</script>
</card>